home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #4 / Floppy_Magazine_88-4_1988_Megasystems_Oy_fi_Side_A.d64 / load aukusti (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  632b  |  18 lines
  1. 0 a=a+1:onagoto1,2,3:remark:              *** by toni luode'86 (c) luodesoft (NULL)
  2. 1 poke53280,7:load"auk.merkit",8,1
  3. 2 poke56576,4:poke648,196:poke53272,18:gosub10:load"auk.txt.kv",8,1
  4. 3 poke56576,2:poke648,4:poke53272,120:poke53265,59
  5. 4 poke198,0:wait198,1:goto20
  6. 10 print"[147]      [204] a t a a n  j u u r i
  7. 11 [153]"       (NULL) a a n m a i n i o t a
  8. 12 print"        [208] e l i [  n i m e l t [
  9. 13 [153]"
  10. 14 print"   [193] [213] [203] [213] [211] [212] [201]  [219] [208] [219] [210] [219] [208] [197] [210] [219] [206]
  11. 15 [153]"          (NULL) val right$ (NULL) (NULL) atn right$ (NULL) (NULL) (NULL)
  12. 16 print"    [205]iett.& [211]uunn.& [203]irj. [212][207][206][201] [204][213][207][196][197]
  13. 17 [153]"     (NULL)left$val (NULL)(NULL)(NULL)(NULL)left$(NULL)val(NULL)(NULL) (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val 1986
  14. 18 return
  15. 20 ch$=chr$(34):poke198,0
  16. 21 print"[147]load";ch$;"aukusti";ch$;",8,1"
  17. 22 print"p[207]53280,0:run":poke198,3:poke631,13:poke632,13:new
  18.